home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 16
/
AMIGAplus Sonderheft 16 (1998)(ICP)(DE)[!].iso
/
pd
/
anwendungen
/
gurus98
/
install
< prev
next >
Wrap
Text File
|
1998-08-28
|
2KB
|
117 lines
; $VER: Install Gurus98
; © by Demon 1998
;======================
(complete 0)
(IF (= @language "deutsch")
(
(set Opt 1)
(set #welcome
(cat
"\n\n\nWillkommen beim Gurus98 - Installer\n\n"
"Dieses Programm installiert Gurus98 mit NewIcons\n\n"
"(Alte Versionen werden gelöscht)\n\n\n"
"Gurus98 © by Demon 1998"
))
(set #choose-text
(cat "Wähle das Verzeichnis wohin Gurus98 installiert werden soll. Ein Verzeichnis namens Gurus98 wird dort angelegt."
))
(set #choose-help
(cat "Bei der Installation werden alle Dateien in dieses Verzeichnis kopiert."
))
(SET #exit
(CAT "\n\nViel Spaß mit Gurus98\n\n wünscht\n\n"
"Heiko Gyrok"
))
))
;***********************************
(message #welcome)
(welcome)
(set @default "SYS:")
(set @default (askdir
(prompt #choose-text)
(help #choose-help)
(default @default))
)
(set a
(run ("C:delete %s" (tackon @default "gurus/#? all")))
)
(set a
(run ("C:delete %s" (tackon @default "gurus/")))
)
(set a
(run ("C:delete %s" (tackon @default "gurus.info")))
)
(set a
(run ("C:delete %s" (tackon @default "gurus97/#? all")))
)
(set a
(run ("C:delete %s" (tackon @default "gurus97/")))
)
(set a
(run ("C:delete %s" (tackon @default "gurus97.info")))
)
(set a
(run ("C:delete %s" (tackon @default "gurus98/#? all")))
)
(copyfiles (source ".inf") (dest @default) (newname "Gurus98.info") (optional "nofail") )
(makedir @default)
(set @default (tackon @default "Gurus98"))
;***********************************
(copyfiles
(prompt "Installiere Gurus98")
(help @copyfiles-help)
(source "G98")
(dest @default)
(newname "Gurus98")
(infos)
)
(copyfiles
(source "G.htm")
(dest @default)
(newname "Gurus98.html")
(infos)
)
(copyfiles
(source "LM")
(dest @default)
(newname "Lies_Mich")
(infos)
)
(complete 6)
;***********************************
(copyfiles
(source "data")
(dest (tackon @default "data"))
(pattern "#?")
)
(complete 99)
(copyfiles
(prompt "Installiere Font")
(source "font/")
(dest "Fonts:")
(pattern "#?")
)
(complete 100)
(run "run data/show Kiss.pic")
(EXIT #exit (quiet))